Duet irem) 


y 


ZA ss 


Julho/85 


N.º 34 


TELEF. 65127 + 4100 PORTO 


NESTE NUMERO 


INTRODUÇÃO AO CÓDIGO MÁQUINA (Cont.) ...... 1 
UMA VIAGEM PELO INTERIOR DO SPECTRUM ... 3 
COMO LIGAR O CONTROLADOR DO F.D.D. ...... 6 
GRAVAR E REPRODUZIR COM VELOCIDADE 
CONTROLADA o. scr gu ao RR erra 6 


Novos Programas 


ROMENO CO FraBÇÕOS .ZD....ccccisrireraes 8 
Cool E OS TD PDD DE 8 
MONCHNGRIOS ..... oc rei pa 10 
Como Gravar Cópias de Écrans .............. 11 
PORRA NTO see rmisci sa race DR Do E ee 12 
ERAS ANIS auto a remos pa a rasas assa AS 12 
BO DEAL sos seres esa ds uy se é 1 EN Eni 13 
TINDOS  .us cenas ress poa sig ano voa 5 RD 19 
Spectrum Pantógialo ....ceses. cercas cds 19 
Pokes pára 08 JOGOS .......cs.. eds 21 


Edição: Clube Z80 


Fotocomposição: Fotomecânica Mabreu/Porto 


impressão: Ramos dos Santos & Ca., Lda./Porto 


Tiragem: 500 exemplares, Julho 1985 


)) 


» 


CLUBE Zs0 


Autor: FERNANDO PRECES 
SACAVÉM 


LDI — Esta instrução move um único byte de HL para DE. O 
registro BC é decrementado (—1) e os endereços de HL e 
DE, incrementados (+1). O flag O/P é mantido -no valor 1 
enquanto BC não atinge o zero. 


LDD — Esta instrução é similar à LDI, excepto na movimen- 
tação dos registros HL e DE, cujos endereços são 
decrementados. 


CPI — A execução desta instrução colocará o flag zero no 
valor 1 se o byte endereçado pelo registro HL igualar o 
conteúdo do registro A. De seguida, o endereço de HL é 
incrementado e o valor de BC decrementado. O flag de Sinal 
não é afectado e o flag O/P é comutado para zero quando 


BC atinge o zero. 


CPD — Esta instrução é similar à CPI, excepto na movimen- 
tação do registro HL cujo endereço é decrementado. 


Num exame às ROMs do ZX81 e do Spectrum, verifica-se 
que algumas destas instruções são frequentemente utiliza- 
das, mesmo quando se trata da simples troca de 2 bytes. 
Para além da redução de espaço na assemblagem, visto que 
cada uma destas instruções agrupa um conjunto de ordens 
processadas directamente no interior do Z80, e relacionada 
com esse tipo de processamento, surge a razão mais impor- 
tante que é o aumento da velocidade de execução. 


3 exemplos extraídos da ROM do ZX81 
LDDR — Ao correr um programa, quando uma variável sim- 


ples, do tipo (LET A = 15), é adicionada às já existentes, 6 
novos endereços terão de ser reservados na área das vari- 


smsáveis. Para tal, o bloco completo de dados entre a zona 


aonde o espaço é necessário e o STKEND, tem de ser movi- 
do em direcção ao topo da RAM. 

As linhas assembladas seguintes, extraídas da rotina que 
reserva espaço na memáória, mostram-nos uma instrução 
LDDR a ser utilizada para deslocar todo o bloco de dados 
que se encontre acima da área a reservar. Note que os bytes 
são transferidos um a um, começando pelo endereço mais 
alto (o byte fronteira do STKEND, código 128) para o mais 
baixo, e nunca na inversa. 

A operação inicia-se carregando BC com o valor do espaço a 
reservar (6 bytes), seguido duma instrução CALL para a roti- 
na que muda os endereços dos apontadores e o valor da 
variável STKEND. 

Comentários 


Endereços 'Mnemónicas 


2467 CALL 2477 
2470 LD HL (16412) 
2473 EX DE, HL 
2475 LDDR 


Rotina que muda os apontadores 
O novo endereço do STKEND 
Troca de endereços 

Transfere o bloco de dados 


Instrução LDI — A variável de sistema 16419 (S-STOP), fixa 
o número da linha aonde se encontra a marca de listagem >. 
Esse número de linha, composto por 2 bytes, é armazenado 


(Cont. dos números anteriores) 


pelo processo corrente no computador; o baixo byte no pri- 
meiro endereço da variável (16419) e o alto byte no segundo 
(16420). 

Contudo, e somente na área do programa, um número de 
linha é armazenado com o alto byte antes do baixo byte. 
Periodicamente é analizada a posição do marcador de lista- 
gem e o número da linha respectivo é colocado na variável 
(S-TOP). Esta operação obriga que uma rotina do monitor 
execute o cruzamento desses 2 bytes. 

No início dessa rotina o registro DE fixa o endereço 16419 e 
o registro HL é apontado para o endereço que contém o alto 
byte do número da linha listada. O conteúdo de HL é carre- 
gado no registro A e de seguida incrementado o endereço de 
HL, para apontar o baixo byte da linha. 

A instrução LDI vai mover esse byte para dentro de DE e 
incrementar os dois registros, ficando DE endereçado em 
16420. A instrução LD (DE), A completa a operação. 


Endereços ' Mnemónicas Comentários 
1101 LD A (HL) Copia o alto byte 
1102 INC HL Aponta o baixo byte 
1103 LDI 


1105 LD (DE) A Transfere o alto byte 


CPIR — Esta instrução é utilizada na rotina que manipula 
D-FILE para encontrar o endereço a enviar para a variável 
16398 (DF-CC) que determinará a posição PRINT do carac- 
ter seguinte. 

No ZX81 cada linha de projecção é fechada por um NEW 
LINE (caracter 128), tornando-se relativamente fácil essa 
pesquisa. O registro A é carregado com o código 128. 


Endereços ' Mnemónicas Comentários 


2342 —INCB 

2343  DECHL 

2344  CP(HL) 

2345  JRNZ 2343 
2347 DJNZ 2343 
2349 — INC HL 

2350  CPIR 

2352  DECHL 

2353 LD (16398) HL 


Número de linhas + 1 
Recuo na fila de projecção 
É um NEW LINE? 

Salta se não 


Fixa o endereço seguinte 
Pesquisa o NEW LINE 

Recua um endereço 

Copia a posição para a variável 


Ensaio 1 (SPECTRUM) Instruções LDIR e LDI 


A primeira rotina armazena na memória a imagem que se 
encontra no écran. A segunda, mistura a imagem que se 
encontre em memória com a que está no écran. A terceira, 
transporta para o écran uma imagem em memória. 


Rotina 1 (Ecran — memória) 


LD HL 16384 : Aponta HL para o 1.º endereço imagem 
LD HL 26000 : 1.º endereço para depósito da imagem 
LD BC 6144 : Porção do bloco a transferir 

LDIR : Transfere o bloco 

RET 
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Rotina 2 (Mistura écran+memória) 


LD HL 16384 Aponta o écran 
LD DE 26000 Aponta a memória 
LD BC 6144 Extensão do bloco 
LOOP: LD A (DE) Coloca em A o byte apontado 
OR (HL) Mistura com o do écran 
LD (HL) A Coloca no écran a mistura 
LDI : Transfere para a memória a mistura 
XOR A : Corrige os flags 
LD AB : Verifica B 
OR C 1 ec 
JR NZ LOOP - Salta se <> de O 
RET 


Rotina 3 (Memória — écran) 


LD HL 26000 : Aponta a memória 
LD DE 16384 :- Aponta o écran 
LD BC 6144 - Extensão do bloco 
LDIR :- Transferência 
RET 


Ensaio 2 — Spectrum 
Scroll de atributos — direcção Norte-Sul | 


Esta rotina movimenta todos os atributos duma imagem, uma 
linha para baixo. Integrada num ciclo, fará Scroll completo. 


Mnemónicas Comentários 
START: LD HL 23363 :- Aponta última linha 
LD DE 23295 Aponta última linha + uma 
LD BC 736 : Número total de atributos 
LDDR : Move o bloco 
LD A (23296) : Copia o atributo da linha desaparecida 
LO. B.32 Contagem para 32 atributos 
NEW C: LD (DE) A - Coloca atributo no topo do écran 
DEC DE Para preencher os brancos, 
DJNZ NEW C Coluna a coluna 
RET 


Ensaio 3 (Spectrum) 
Scroll de atributos — direcção Sul-Norte 7 


Esta rotina movimenta todos oa atributos duma imagem, uma 
linha para cima. Integrada num ciclo, fará o Scroll completo. 
Mnemónicas 


LD HL 22560 
LD DE 22528 
LD BC 736 
LDIR 

LD A (NN) 
LD B 32 

LD (DE) A 
INC DE 
DJNZ NEW C 
RET 


Comentários 


START: Aponta início da 2.º linha 


Aponta início da 1.º linha 


Endereço onde está indicado o tom 
Para o atributo da nova linha 
NEW C: 


Ensaio 4 (ZX81) Transferência em bloco do écran 
para a memória ou da memória para o écran 


Mnemónicas Comentários 
ORG 17514 Cm na 1.º REM 
START 1: LD HL (16396) D. FILE 
LD DE 28000 Zona memória disponível 
LD BC 793 Extensão do bloco 
LDIR : Écran — memória 
RET 
- NOP 
NOP 
START 2: LD HL 28000 
LD DE (16396) 
LD BC 793 
LDIR :- Memória — écran 
RET 


GRUPO 16 — As instruções IN e OUT 


Várias subdivisões vamos efectuar afim de estudar as instru- 
ções deste grupo. 
Separemos em primeiro lugar as instruções IN (entrada de 
dados) das OUT (saída de dados). 

Outra separação será ainda efectuada pois existem instru- 
ções simples ou de grupo que podem ser automáticas ou não 
automáticas. 


Mnemónicas Códigos Comentários 

IN A (N) 219, N (N) especifica a porta 

IN A (C) 237, 120 Registo C especifica a porta 

IN H(C) 237, 96 Idem 

IN L (C) 237, 104 Idem 

IN B(C) 237, 64 Idem 

IN C(C) 2St, Tê Idem 

IN D(C) 237, 80 Idem 

IN E (C) 237, 88 Idem 

IN! 237, 162 Não automática com incremento 
INIR 237, 178 Automática com incremento 
IND 237, Y70 Não automática com decremento 
INDR 237, 186 Automática com decremento 
OUT (N) A 211, N (N) especifica a porta 

OUT (C) A 237, 121 Registo C especifica a porta 
OUT (C) H 237, 97 Idem 

OUT (C) L 237, 105 Idem 

OUT (C) B 237, 65 Idem 

OUT (C) € 257. 13 Idem 

OUT (C) D 237, 81 Idem 

OUT (C) E 237, 89 Idem 

OUTI 237, 163 Não automática com incremento 
OTIR 237, 179 Automática com incremento 
OUTD PSF: 174 Não automática com decremento 
OTDR 237, 187 Automática com decremento 


O Z80 serve-se das suas portas para comunicar com o 
exterior. 


Numa instrução IN, o microprocessador agarra um byte de 
dados que se encontre no BUS DE DADOS e copia-o para 
dentro do registro especificado. A linha de controlo IORQ é 
activada bem como a RD durante o tempo necessário à exe- 
cução da instrução. 


Quando executa uma instrução OUT, o microprocessador co- 
loca no BUS DE DADOS uma cópia da informação retida no 
registro especificado, no momento exacto em que informa o 
periférico seleccionado pelo endereço da porta. as linhas 
IORQ e WR são activadas durante a execução da instrução. 


Em resumo, condicionado ao estado das linhas RD, WR e 
IORQ, qualquer periférico poderá ser activado se for coloca- 
do o endereço-porta apropriado no BUS DE ENDEREÇOS, 
quando da execução duma instrução IN ou OUT. 


Duas das portas do Z80 são muito utilizadas. A porta 251 que 
controla o acesso à impressora e a porta 254 que controla a 
leitura do teclado e ainda o gravador (LOAD, SAVE, MERGE 
e VERIFY). 


Quer a instrução IN A (N), quer a OUT (N) A, requerem como 
dado o endereço da porta e não é raro surgirem em revistas 
ou livros com o formato IN A (Porta) ou OUT (Porta) A. 


A instrução IN A (Porta), indica ao microprocessador que 
deve colocar no registro A, uma cópia do byte DATA (quer 
dizer dado, informação) que seja encontrado na porta 
especificada. 


a” 
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1 — AS FONTES DE ALIMENTAÇÃO 


O Spectrum pode trabalhar sem a cor, com uma ou mais 
teclas a falhar e muitos outros pequenos defeitos mas ficará 
imobilizado se tiver problemas com a sua fonte de alimenta- 
ção. Esta, que recebe 9 volts contínuos da unidade converso- 
ra (normalmente chamada Transformador), é um circuito um 
quanto sofisticado capaz de gerar as 3 diferentes tensões, in- 
dispensáveis ao bom funcionamento do computador.: 
Como alguns leitores podem não fazer uma ideia dos compo- 
nentes da unidade conversora, apresentarei em primeiro lugar 
o seu esquema eléctrico e uma explicação sumária de 
funcionamento. 


mma) FONTE DE ALIMENTAÇÃO EXTERNA 


R1 
T 


220 V= 


constatou que após algum tempo de trabalho a caixa que en- 
volve o conversor fica bastante quente. 

A tensão disponível no enrolamento de saída de (T1) é rectifi- 
cada por Ri, que a transforma numa tensão pulsatória. 
Uma pequena parte dessa tensão + 0,5 volts é perdida na 
ponte rectificadora. 


O condensador electrolítico de grande capacidade (C1) carre- 
ga ao valor de pico dessa tensão pulsatória e descarrega 
sobre o circuito a energia armazenada, sempre que a tensão 
rectificada tende a cair. 


b) FONTE DE ALIMENTAÇÃO INTERNA 


Nenhum circuito interno do Spectrum utiliza directamente a 
tensão proveniente da fonte externa que acabamos de anali- 


+ 9 Volts 
1,4 Amperes 
disponíveis 


Fig. a1 — Esquema da unidade conversora 


Po 


O transformador (T1), composto de 2 enrolamentos separa- 
dos, debita sobre o rectificador de onda completa (R1) uma 
tensão alterna que varia com a carga entre os 13 e os 9,5 
volts. 

Essa variação de + 3 volts entre carga zero e carga máxima, 
deve-se a perdas apreciáveis de energia, uma parte dissipada 
no ferro e outra nos enrolamentos do transformador. O leitor já 


+ 13 


0V 


dm— —— ED 
1/50 do segundo 


Tensão altema (T1) 


sar. Todos os circuitos de lógica incluindo o CPU (micropro- 
cessador 280A) operam com + 5 volts, a ULA necessita de 
+ 12 volts e o integrado de vídeo de + 12, + 5e — 5 volts. 

O problema não é tão simples como se nos afigura à primeira 
vista, dado que alguns componentes do spectrum precisam de 
uma tensão rigorosamente estabilizada por serem sensíveis a 
flutuações superiores a 250 milivolts. Uma oscilação da tensão 


+ 12,5 


0V 


Tensão pulsatória 


+ 12,5V 


0v 


Tensão rectificada e filtrada por C1 


dessa grandeza, mesmo durante o intervalo pequeníssimo de 
1 microsegundo, será suficiente para desnortear a máquina. 


D1) OS 5 VOLTS POSITIVOS 


Esta é a fonte mais potente do Spectrum dado que a versão de 
48 K bytes consome cerca de 1 Ampere. 


9 Volts 


E o—— 
e 
—- 
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O pequeno regulador (um circuito integrado) é uma peça com- 
plexa e eficiente ligado a um dissipador de calor em chapa de 
alumínio. Ele recebe pelo pino IN os 9 volts provenientes da 
fonte externa, e mantém a tensão estabilizada a + 5 volts no 
pino de saída (OUT). 

A tensão de entrada neste integrado pode variar entre 7 e 25 
volts, sem que haja oscilações na saída. Simplesmente, quan- 
to maior for a tensão na entrada mais aquece a chapa dissipa- 
dora. 


b2) OS + 12 VOLTS 


Como viram, obter 5 volts a partir de 9 volts não é particular- 
mente difícil, visto que a diferença de tensão entre a entrada 
e a saída é na sua maior parte dissipada em calor na chapa 
de alumínio. Porém, conseguir obter 12 volts C.C. a partir de 
9 volts C.C., já não é assim tão fácil. A figura b2 mostra-nos o 
respectivo circuito. 


Fig. bt — Esquema do circuito regulador de + 5 volts 


+ 5 volts 
e estabilizados 


R59 


1K 


TR5 
2Tx213 


R58 
1K 


+ 5 Volts 
estabilizados 
a 5% 
+ 9 volts 
fonte 
extema 
D15 
+12 V CC 
Da | A 
+, 
el C44 
* 100 
E uF 
C49 
47 nf 
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Fig. b2 — Circuito gerador dos + 12 V. CC 


A 


ut 
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O princípio de funcionamento baseia-se na utilização dum 
circuito oscilante que converte os 9 volts C.C. numa tensão 
alterna cujo V. máximo é superior a 12 volts e num sistema 
de rectificação e filtragem. 

O transistor TR5 produz a realimentação positiva que excita o 
oscilador, formado por C3, R61, L1 e por TR4 (transistor de 
potência), de cujo colector são retirados os + 12 volts C.C. 
para utilização. 

O pico da tensão oscilante, cujo valor de referência são os 9 
volts aplicados ao colector de TR4, faz o transistor conduzir 
para um V. máximo que ronda os 13 volts, carregando C44 
através de D15. Enquanto não surge no oscilador a alternân- 
cia positiva seguinte, este condensador descarrega sobre a 
carga a energia armazenada. 


V/ + 5 volts 


— 5 volts 


Se os + 12 volts C.C. tenderem a baixar, (o circuito de carga 
composto pela ULA, memórias e vídeo, não mantêm um 
consumo constante) a polarização de base do transistor TR5 
altera, antecipando a condução deste. Essa antecipação au- 
menta a frequência de oscilação, reforçando mais cedo a 
carga de C44 para compensar a descida da tensão. 


b3) OS — 5 VOLTS 


Esta tensão é obtida a partir do funcionamento do circuito 
acabado de descrever (figura b2) através dos componentes 
C46, D11, R55, D12, D17, R54 e C47, cujo esquema está 
representado na fig. b3. 


+ 9 volts 


+ 12 volts 


Da E 


FALESEESSS| /N ii 


1 uF 


Quando o colector de TR4 na sua rápida oscilação vai de 
cerca de 3 a 13 volts, o condensador C46 é carregado via 
D11 com uma tensão de + 12 volts (o restante é dissipado 
nas portas de silício do díodo durante a condução). 
Como a armadura inferior de C46 é separada da massa por 
D11, uma tensão real e de sinal contrário vai surgir durante o 
estado de repouso de TR4. 

Através de R55, D17 (ZENER — Díodo de ruptura com resis- 
tência variável), D12, C47 e R54, a descarga de C46 para a 
massa, vai fazer surgir tensões negativas, de onde são retira- 
dos os — 5 volts para utilização. 

D17 estabiliza a tensão a 5.1 volts e C47 através de D12 
carrega a — 5 volts. Durante a descarga, C47 fecha-se sobre 
a carga esporádica e R54. 

No ciclo seguinte do oscilador, tudo se repete. 
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Nota importante: 


LIMITES DE CONSUMO 


A corrente que pode ser desviada da fonte interna do Spec- 
trum para alimentar cirçuitos externos é francamente limitada. 
Na versão de 16K bytes ainda é possível desviar para o 
exterior, cerca de 300 mA dos + 5 volts estabilizados. 

Na versão de 48 K bytes é aconselhável, para alimentar os 
periféricos, utilizar uma fonte auxiliar de + 5 volts estabiliza- 
dos, para evitar falhas frequentes ou ainda avarias e os 
consequentes aborrecimentos. 


(Cont. no próximo número) 


No número de Abril tínhamos publicado um procedimento 
para ligar e preparar diskettes para trabalhar com o sistema 
operativo Timex e a Impressora Star. 

Posteriormente, recebemos alguns pedidos para publicar o 
procedimento para a ligação do mesmo Controlador à Impre- 
ssora GP250 da Seikosha. 

1) Ligar o Spectrum, o FDD e a Impressora. 

2) Introduzir a diskette do TOS (Timex Operating System) e 
se necessário actuar o pequeno switch vermelho que se en- 
contra na parte frontal do controlador. 

3) Escrever o pequeno programa: 


10 GO SUB +* «UTIL» 

20 LOAD * “LPRINT.COD»> CODE 23297 : RANDOMIZE 
USR 23297 : FORMAT **: CHA” 

30 OPEN *3 * CHAT;A : LLIST A: STOP 


Em seguida use o comando RUN. 


Responda às seguintes perguntas: 


Text or bytes (T/B) ? enter 
Xon/Xoff (Y/N) 7 enter 
Input with wait (Y/N) 7 enter 


Baud Rate (A-P) 2 K 
Parity (E=Even, O=Odd, N=None) ? N 
Stop Bits (A=1, B=1.5, C=2) ? A 
Bits/Char (A=5, B=6, C=7, D=8) ? D 


(caso de 2400 bps) 


Observe que a Impressora executa a listagem do pequeno 
programa descrito nas linhas anteriores. 

Se quiser escrever texto ou proceder à impressão de resulta- 
dos de cálculo, use o comando LPRINT! 
Não se esqueça de formatar as diskettes na sequência deste 
trabalho de modo a ficar com os procedimentos de impressão 
standardizados, de acordo com o descritivo que publicamos 
em Abril. | 


Ficha de ligação à Impressora 


Seikosha GP 250, vista pelo 
lado dos pinos (soldaduras) 


FDD 


2 
ES 
; 


MÁRIO SANCHO/PORTO 
Adaptado da Revista MICROHOBY 


Convém manejar uma magnetitude que meça a velocidade 
de transferência de informação, para poder manipulá-la 
desde o programa «TURBOLOAD»; esta magnetitude é o 
«baud» e representa o tempo que um BIT demora a ser pro- 
cessado (transferido). 

A velocidade «da fábrica» do Spectrum é aproximadamente 
de 1500 bauds, ou seja, 1500/8 bytes pode segundo. 
Este programa em linguagem máquina tem como limite infe- 
rior de processamento 800 BAUDS e como limite superior 
pode alcançar 5000 (mais do quádruplo do processamento 
normal do Spectrum). 

É necessário aclarar que nem todas as cassettes são iguais 


e que nem todas estão preparadas para receber/transmitir a 
alta velocidade, assim terá que fazer alguns testes para en- 
contrar a velocidade que se ajusta ao seu gravador/cassette. 
Este programa não tem qualquer influência na velocidade de 
transferência de dados por outro meios de hardware (micro- 
drives, wafadrive, floppy disc, etc.). 

Os novos comandos são extremamente parecidos aos origi- 
nais, excluindo a inclusão da velocidade em BAUDS; por 
exemplo, para realizar um SAVE do seu programa teria que 
escrever da seguinte forma: 


SAVE BAUDIOS ; «NOME» 


onde BAUDIOS seria um número entre 800 e 5000 inclusivé. 
Esta é a única modificação que se tem a incluir em todos os 
comandos originais SAVE, LOAD, VERIFY e MERGE. 


SN 
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Para dar um exemplo mais concreto, suponhamos que a 
nossa rotina está ensablada na direcção 60000 e queremos 
gravar um programa chamado «DEMO» a 2500 BAUDS,; teri- 
amos que escrever: 


10 RANDOMIZE USR 60000 : REM SAVE 2500 ; «DEMO» 


ou sem número da linha. O REM é imprescindível, pois sem 
ele a rotina não funcionará. Para maior comodidade de uso, 
depois da função «REM» devem colocar-se 2 pontos; assim 
obteremos facilmente os «TOKENS» de SAVE, LOAD, VE- 
RUFY e MERGE. 

A rotina está feita de tal modo que se não quiser alterar a 
velocidade de transferência de dados poderá fazer normal- 
mente, sem dar ao computador a informação de BAUDS. 
Volto a dizer que a altas velocidades de transferência de 
dados, a precisão com que o processo ocorre, depende das 
características físicas da cassette utilizada. 

Esta rotina serve também para protecção de programas con- 


mestra as cópias piratas destes, pois apenas há um programa de 


cópia no mercado que consiga copiar programas com dife- 
rentes BAUDS (chama-se a isto «baud rate»). 


ama 


RESTORE : LET check = 0: PRINT "CHEQUEO: "; 


2 FOR i=1iTO 1025: READ a: POKE 59999,a: LET 
check = check + a: NEXT i 


3 PRINT check;" "s<"in” AND check «< 
"correcto" 

10 DATA 42,93,92,35,126,254,234,32,30,95 

20 DATA 126,254,58,32,24,35,126,254,248,40 

30 DATA 28,254,239,202,27,235,254,214,202,254 

40 DATA 234,254,213,40,82,24,2,207,9,207/ 

50 DATA 9,207,10,207,11,207,14,207,26,205 

254,235,205,45,236,596,244,205,88,236 
245,62,253,205,1,22,179,17,161,7 
205,10,12,253,203,2,238,205,212,21 
221,33,234,17,17,0,175,205,198 
238,6,50,118,16,253,241,297,91,245 
237,62,255,221,42,83,92,96,4,221 
42,247,237,205,153,238,201,205,254,235 
205,45,236,220,764,236,939,126,254,13, 
32,167,205,174,235,237,79,6,238,197 
3,247,54,128,235,209,229,229,221,225 
62,255,205,116,235,195,205,8,205,9 
235,253,203,37,134,48,117,24,91,205 
254,295,205,45,236,220,76,236,205,241 
236,245,205,174,235,241,201,205,97,235 
253,203,37,198,48,88,237,91,6,238 
42,83,92,25,295,492,99,92,909,237 
82,56,10,40,8,68,77,2353,205,232 
25,24,11,25,2935,167,297,82,68,77 
235,205,85,22,42,83,92,237,79,10 
238,9,34,75,92,42,8,238,124,230 
192,32,7,34,66,92,253,94,10,0 
237,91,6,238,221,42,83,92,62,259 
253,203,37,70,40,1,55,205,12,238 
216,195,143,234,167,32,19,221,33,0 
44,237,91,295,237,42,6,238,167,237 
82,194,143,234,24,218,254,2,48,10 

221,42,8,238,237,91,6,238,24,204 
221,42,247,237,32,2,24,242,237,91 
245,237,24,190,221,33,251,237,17,17 
0,175,55,205,12,238,48,24,2,253,203 

2,134,253,54,82,3,33,234,2837,14 
128,58,251,237,190,32,2,14,246,254 
4,48,217,17,192,9,197,205,10,12 
193,17,252,237,93,235,237 6.10 .126 


>» 154510); 


60,32,3,121,128,79,26,190,35,19 
32,1,12,215,16,246,203,121,32,180 
62,13,215,201,205,43,237,229,254,59 
194,139,234,33,31,3,237,82,210,137 
234,167,33,136,19,237,82,218,133,234 
237,91,76,237,237,83,224,237,205,97 
237,225,35,126,254,34,194,135,234,35 
201,6,10,17,235,237,126,254,34,40 
11,18,35,19,16,246,126,254,34,200 
55,201,62,9,184,62,32,18,19,16 
252,201,126,254,34,194,141,234,62,255 
50,235,237,201,35,126,254,13,40,15 
254,202,40,44,254,170,40,59,254,175 
40,86,195,139,234,33,0,128,34,247 
237,175,50,234,237,237,91,83,92,42 
75,92,237,82,34,249,237,42,89,92 
55,237,82,34,245,237,55,201,205,232 
236,33,15,39,237,82,218,137,234,237 
83,247,237,205,115,236,201,35,126,254 
13,194,1239,234,33,0,64,34,247,237 
33,0,27,34,245,237,33,0,128,34 
249,237,62,3,50,234,237,201,205,43 
237,237,83,247,237,205,220,236,126,254. 
44,194,139,234,205,232,236,237,83,245 
237 ,205,220,236,24,2164,122,179,192,43 
126,254,48,194,139,234,35,201,205,43 
237,254,13,194,139,234,201,175,50,234 


237,35,126,254,13,55,200,62,3,50 


234,237,126,254,170,40,7,254,175,40 
8,195,139,234,205,161,236,175,201,35 
126,254,13,6251,200,43,205,43,237 
237,83,247,237,205,220,236,126,254,13 
62,2,200,24,159,17,0,0,35,126 
254,58,208,254,48,216,214,48,229,237 
83,76,237,235,205,78,237,22,0,95 
25,218,137,234,235,225,24,226,0,0 
41,218,137,234,84,93,41,218,137,234 
41,218,137,234,25,218,137,234,201,17 
226,237,205,162,237,33,220,237,126,50 
207,238,35,126,50,240,238,35,126,50 
246,238,35,126,50,5,239,17,230,237 
205,162,237,33,220,237,126,237,68,50 
92,238,35,126,237,68,50,125,238,35 
126,237,68,50,133,238,35,126,237,68 
50,138,238,201,6,4,33,220,237,34 
218,237,197,26,213,33,150,0,22,0 
95,205,169,48,68,77,197,237,75,224 
237,205,43,45,193,229,205,43,45,209 
205,175,49,205,162,45,42,218,237,119 
35,34,218,237,209,19,193,16,209,201 
0,0,0,0,0,0,150,0,59,46 
62,49,80,78,53,80,0,127,32,77 
46,32,72,79,66,66,89,0,0,0 
0,0,0,0,0,13,10,8,255,129 
129,129,129,129,0,0,0,0,0,0 
20,8,21,243,62,15,211,254,33,63 
5,229,219,254,31,230,32,246,2,79 
191,192,205,231,5,48,250,33,21,4 
16,254,43,124,181,32,249,205,227,5 
48,235,6,156,205,227,5,48,228,62 
198,184,48,224,36,32,241,6,201,205 
231,5,48,213,120,254,212,48,244,205 
231,5,208,121,238,3,79,38,0,6 
176,24,31,8,32,7,48,15,221,117 
0,24,15,203,17,173,192,121,31,79 
49,24,7,221,126,0,173,192,22t,55 
27,8,6,178,46,1,205,227,5,208 
62,203,184,203,21,6,174,210,128,238 
124,173,103,122,179,32,202,124,254,1 
201,33,63,5,229,33,128,31,203,127 
40,3,33,152,12,8,19,221,43,243 
62,2,71,16,254,211,254,238,15,6 


CLUBE Z 80 


1120 DATA 164,45,32,245,5,37,242,175,238,6 
1130 DATA 47,16,254,211,254,62,13,6,55,16 
1140 DATA 254,211,254,1,14,59,8,111,195,222 
1150 DATA 238,122,179,40,12,221,110,0,124,173 
1160 DATA 103,62,1,55,195,252,238,108,24,244 


Converter um INPUT de uma fracção comum, como por 
exemplo 5/8, para uma fracção decimal (neste caso 0,625) é 
fácil. De facto a «barra de fracção» é apenas o que a Apple- 
soft usa como o símbolo operador «dividido por». Em pouco 
tempo fracções misturadas, como «14 2/3», podem ser acei- 
tes como um INPUT de uma STRING, depois procuradas 
pela presença de um espaço, e assim dividir o INPUT no seu 
número inteiro (se existir algum) e nas suas partes fraccioná- 
rias (se existirem algumas). 

Mas recentemente quis fazer o contrário. 

Fiz um programa que calcula quantidades de ingredientes e 
queria expressá-las através de simples fracções — isto é, 
expô-los como fracções o mais aproximadas possível como 
1/8, 1/3, 3/5, etc. 

Esta rotina constrói uma STRING com o formato «123 4/5» 
de um valor de INPUT de aproximadamente 123.78209. No 
número de linha 110 separamos o INPUT da variável V na 
sua parte (todo o número) total, e na sua parte fraccionária. 
Também inicializamos uma STRING de OUTPUT F$ para ter 
3 espaços (no caso de alguma coisa ser esquecida no uso 
duma subrotina anterior). 

Depois, simplesmente, comparamos F com valores sucessi- 
vamente mais elevados, alterando o conteúdo de F$ de cada 
vez. O valor de comparação em cada teste é o ponto-médio 
entre o prévio valor fraccionário nesta lista, e o próximo. 
O primeiro IF que testa falso fará com que o restante do 
número de linha seja ignorado, ou passado à frente, como 
sempre acontece no BASIC. 

Isso deixa F$ conter a STRING apropriada para a parte frac- 
cionária que está adicionada à STRING equivalente da parte 
integral, na última linha da subrotina. 

A parte integral está estabelecida na linha que faz uma provi- 
são especial no caso de um valor original ser menos 
que 1. 


MAS QUE FAZ AQUI A LINHA  ? 


É um remendo por causa do limite de comprimento dos 255 
caracteres das linhas de Basic. 

Se um dos IFs na linha .. dá falso, não queremos executar a 
linha - . Mas se todos forem verdadeiros, então o GOTO + 
no fim da linha . assegurará que continuamos a testar con- 
tra valores mais elevados. 

Note ainda que um valor é arredondado para o próximo valor 
integral (sem fracção), no fim da linha 250. 


JLIST 

1 INPUT V: REM VAI A ROTINA 

2 GOSUB 100 

3 PRINT F$ 

4 STOP 

Jó .876 

100 REM SUBROTINA PARA FORMATO DE FRACCOES 

110º LET Vi = INT (UV): LET PF =V —VISLET ES = º ' 
120º IF F< = ,0625 THEN LET F$ = "1/8": GOTO 300 
130 IFF< = .1625 THEN LET FS ="1/5": GOTO 300 


1170 DATA 
1180 DATA 
1190 DATA 
1200 DATA 
1210 DATA 


JOB 4r TX 
156 EPA 
140, TE>f)« 
1a Ir FS 
Fo Sr Fá 
200 "SFF < 
20... AR P.< 
220. IEF 4 
280 TFT SL 
235 IF F< 
240 IF F< 
zo JF F > 
300 LET V$ = 
310 LET F$ = 


121,203,120,16,254,48,4,6,66,16 
254,211,254,6,62,32,239,5,175,60 
203,21,194,235,238,27,221,35,6,49 
62,127,219,254,31,208,122,60,194,213 
238,8,59,16,254,201 ? 


«225 THEN LET F$ = "1/4": GOTO 300 
«261666667 THEN LET F$ = "1/3": GOTO 300 
«394166667 THEN LET F$ = "3/8": GOTO 300 


«3879 THEN LET F$ = "2/5": GOTO 300 
45 THEN LET F$ = GOTO 300 

«dd THEN LET F$ = 

6125 THEN LET F$ = 
1649833 THEN LET F$ = : 
708333 THEN LET F$ = "3/94"; 
«773 THEN LET F$ = "4/5": 

18379 THEN LET F$ = "7/8": 
So JHEN LET FS = ""VL=V] +11 
STR$ (VI): IF Vi = 0 THEN LET V$ = 


Vs +" ” + F$&: RETURN 
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MASTERFILE 


Temos recebido pedidos de auxílio em relação ao uso 
do Masterfile com as diskettes do FDD. 


Se algum associado ou amigo possui os ficheiros orga- 
nizados em Diskette, agradecemos que comunique ao 
CLUBE Z80. 


VENDE-SE 


TFIMEX SINCLAIR 1000, com cerca de 30 programas: 
EDUCATIVOS, JOGOS, COMERCIAIS, ETC. 
Vendo memória de 16K, separada ou junta com o 
computador. Como novo. 


Telefone 690553 


Introduza esta listagem, grave-a e escreva RANDOMISE USR 
65120 antes de ler o programa com o écran que quer gravar. Quando 
tiver o écran que quer accione o gravador em RECORD/PLAY e fa- 


ça CAP/S. O seu écran ficará gravado. 
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INE :. 5T0OP 
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140 STOP 


“topiaCODE 6512090,885 
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TA 254,25394,2,d4d9,1,201,221 
H 165,254,62,90,17,17,0,2 
Ta 194,4,0,80,118,16,253, 
A 33,0,6d,62,255,17,0,.27 
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CLUBE Zso 


Se já é possuidor desta aventura, notou que o programa sNaRsLOCê 251,52.201,.50,120,251, 
Z , : Ss 2% E 
contem 4 quadros, um para objectos e dois para caracteres, 1080 DATA 251,33,0,96,1, 124, 146, 
sendo um para os enigmas e o outro para o resto. Estes dois +26 
E j a " a ma ERES E Ra MO quo E) ogpor a “ pes Ps soc) . e? ” ea À PS " o dr = 
últimos quadros têm o mesmo formato, com 9 bytes para SORO HH 254103,535,11,126, 177,7 
; do DER e A a a dis e ser nas 
cada caracter. No quadro dos objectos cada entrada tem 5 -1UO DATA 3535,0,96,1,124,125,22,8 
r lugares só id RS DL É, ns 
bytes o quad o dos luga es só tem 2 bytes. “112 DATA 205,136,91,35,16,162,3 
O código neste jogo é já um trabalho profissional. à Sã 
Para que este jogo funcione mais rapidamente, insira a lista- -Led CHA qd2.53.0,0,54,27, 151,34 
. . o . . E ro LH: H B=3 r 130,62, 2ss 3 SS selo 
gem seguinte, grave-a e faça RUN; depois insira o Shadowfi- 2 fã 
re. Bom divertimento. tao DATA 6,1153,35,16,252,237,565 
;251 
“159 DATA 165,3,125,15265,237,103, 
ld LET cz) - Aa 59. 16 15 5185, : 
llá FOR x=23295 TO 23455 1163 DATA D5a 28 26 ,170,119,35 
120 READ y: PORE x,y: LET c=0+4 E. o Er. ae Ro. 
140 TF Cos 7 lYa DATA 177,32,24,201 
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9 LATA II, 0694,245D,62,7,95 ,280D5, É 

a a cru DESEJO ADQUIRIR OS NÚMEROS ATRASADOS DA 
GO TREE O PEDIDO DITAS slbas REVISTA «CLUBE Z80» 

-230 DATA 205, 1253,91p,255.205,12 (números 1 a 13) 
omnes 20 ir id Contactar com: FIRMINO GOMES 

-250 DATA 205,130,51,52,201.58,9 Praceta António Sérgio, 317 -2.º E. 
“á6o DATA >205,82,156,33,0,125,54 4450 MATOSINHOS 
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«Your Spectrum» — Julho, n.º 16 


Aqui está mais uma maneira fácil de tornar os seus écrans de Ee E pa E Es Dias R ni ba So ES 
reprodução mais animados. e E 13W otmeconi uiiso T rm. 
. ; À À ; : 15H & E E há IE tá : ds À soa é 
E um ecran que o deixa criar duas figuras independentemente “PG: IF CODE p$:48 OR CODE pg>5 
atribuídas antes de as juntar. As instruções encontram-se no 5 OR LEM Pãri THEN GO TO 158 
programa DO LlPrire oco THEN LET-Pp=UAL pa 
BRENT 4; cor inumero)- =“; p 
E REM E lo SF 18=]"S“ THEN PRINT AT y,x 
CLS : PRINT “Crie um ecran : ÚVER o; INK p;CARG 143: LET xs 
LiSando as teclas do cursoris a tel: IF xq4s-& FRHENSLÊE! xaBd-s. BET 
Si.Pode alterar a cor a qualquer d=4+il AND gcali-iy AND y>=2ii 
momento com Ce TATrOQUELTO N 180 LF is="t" THEN PRINT AT y,x 
LUm.de cor (QU a 7i.bWuando acabar | FLASH 4; INK p;CHRE 143: GO TO 
SCCionE PT SJ 
so BRESTORE -. FOR. istiss cacto. doe JP Tas E TMEN PRINT BT U,% 
USR- “ar? RERO x: PORE i,x: NEX OVER c/EXP po ChRS 143: LET x=x 
Eq 41 LF KISAME ETs: AET.M 
dy) DATA 170,85,178,85,1704,85,1 =y+tl AND uc2l:-iy AND gq:>=21] 
Ed PP 200 IF ig="'5" THEN PRINT AT u,x 
SO PRINT “Qualquer ietra para |: QUER o; INK PicHÊSs 145: LET y= 
COME car Ú+i ANE us2l 
by PAUSE q ela LF ig="7“ THEN PRINT AT uy,x 
o COR JSi TO E : OVER Cc;iEXE grip AND c=0) +iLlATT 
do PAPER 7: INK à: CLS R ly,xX1i-S6 AND o=1l:;,CHR& 143 
sa FOR k=zê TO 20 STEP 2: FOR É LET qu=u-l AND qy:0 
0" PO 3. STEP-3: PRINT ATOk,U: E sza PRINT AT qu,x; FLASH à; DUVER 
NA d;CHRG LáS:AT k+1,L;CHRE ldd; O: INK p:ChRg ldás 
CHRS 1453: NEXT L: NEXT k 239 PAUSE 20: 0 TO 1390 
lb) LE, x=0: LET u=z6. LET 0=0 aid iF j=2 THEN GO TO S1Q 
Lei p= 20 iNPUT O. PRINT Bi;"CAguarde 
+40 PRINT Eliccor ae. um momentol y 
l2d PRINT FLASH 1; DUER o; INK Sea DIM ailrado FOR i=2252a TO 
Pahi 4,x:;CHRS id: , 225268+783:. LET x=PEER i: LET x=t 
iso LES igG=INREVE: IF ig="" THE Z-SDl +35: LET aii-DPSETFI=x 
" GO TO 1548 27à NET i 
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Os jogos de cartas em Basic são em regra muito lentos no E = 

aspecto gráfico ... mas se o código máquina não for a sua  & + = e 

especialidade, que fazer? 4444 
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e 7171 
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Descontraia-se — a resposta está aqui! O mágico do código 
máquina, Toni Baker, propõe-lhe um espantoso programa 
para desenhar cartas de jogar em qualquer parte do écran, 
nem mais, nem menos! 

"O mais interessante é permitir-lhe programar os seus jogos 
de cartas em Basic, encarregando o código máquina do de- 
senho das cartas. Depois de carregado, basta uma simples 
instrução do género: 


PRINT USR CARD, coordenada Y, coordenada X, 
número de carta, naipe. 
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E é tudo! Quando mandar executar a instrução a carta dese- - 
jada será «Printada» no écran (daqui a necessidade das a 


coordenadas x e y). Note que o desenho das cartas não | A 
afecta a instrução PRINT. CARREGADOR DECIMAL PARA O PROGRAMA BIG DEAL 


RR RS CT 
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Na realidade o programa permite algumas variações sobre o = FEM EEEEESEAMSSAERM 
tema. Por exemplo, se o par de números «número da caria, ig CicaR 
naipe» for «0,0», aparecer-lhe-á uma carta de costas; experi- E = a 
mente «0,1» e «0,2», se quiser ver um Joker vermelho e £6 CLS : INPIT BRIGHT 4 ENDE 
preto, respectivamente. RECO E se 

re - dd A IF EessINT ie:51245 THEN LET 
Além do que foi dito, a selecção da carta é feita de modo que O ce CD E EA E: 

a «1» corresponde o ás, a «2» o duque, etc... e «13» ao rei. BR IF e>65525 THEN BEEP .2 Es 
Os naipes têm os números «1» para ouros, «2» para paus, SO TO s8 = CR ES EL cms 
»«3>» para copas e «4» para espadas. E Es o pad dE da = — e SEP 
Fácil! Não é? - BB INPUT BRIGAT 1," CÔMNTEUDO q 

Falta dizer (e é muito importante) que qualquer programa que q = 
bt a DO IF c:25B5 THEN BEEP .EZ.5. go 
use a rotina tem de incluir algures no início da listagem a ME O e CS EN ares a sa = 
instrução 18m PORE cc 
126 IF e=INT 42 -:5/45 THEN PRINT 
LET CARD = 36102 TRE 5SB-LEM ETRS e; INUERSE 1; BE 
As cartas têm 8 * 10 caracteres ME ES =D GS 2. pe 
Exemplo da demonstração: 158 IF er-INT ie -5145 THEN PRIN 
GRAND SLAM FI eLEN SDTIRE PEER esFELNR E; 
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Adapt. por ISABEL CRISTINA 


+dca FOR i=22525 TO 22687 A? 
«Your Spectrum» — Julho, n.º 16 28: MEXT. ta E en Rene 
- 230 “a 1=22655 TO 22911: BERD 
, Es ai CORE i.AT NEXT s 
Um título numa pagina e uma maneira de mostrar o seu toque -DiD READ a: FOR i=22912 TO 232s 
profissional nos programas que faz. o ã So Lis, e Foo MEM: 1 
: z PO SI IJ 
O programa apresentado permite-lhe desenhar um título no 5253 FALSE 390. INK 7. CLS LTS 


écran, que ficará a fazer Flash enquanto faz a reprodução de 
outro programa. Este programa reduz também o tempo de 
reprodução. 

Para gravar esta listagem utilize SAVE «Programa» 


SCREENS. «Your Spectrum» 
Quando o quiser utilizar, deverá instalá-lo em memória fazen- 


do o respectivo LOAD «Programa» SCREEN$ e só depois Qualquer um pode ser artista com o Spectrum. Existe agora 


deve introduzir o programa em que vai trabalhar. um método de transferir um desenho original para o écran. 
— 9s ecrans que desenhar, tal como é dito no programa, devem Para isso necessita de passar o desenho para uma folha de 
ser gravados com SAVE «YS» CODE 22528,768. um material plástico transparente e colocá-lo seguidamente 
Para criar os seus próprios títulos no écran, existem duas no écran, como um guia de desenho. Pode no entanto aconte- 
maneiras: e cer que o seu desenho, seja maior que o écran, terá de lhe 
— substitua a file atribuída, com os números apropriados. reduzir as dimensões de forma a ajustá-lo às coordenadas do 
— Escreva espaços (CHR$32) no PAPER direito e nas cores seu écran. O programa aqui incluido permite-lhe transferir 
INK. qualquer desenho (mapa, ilustração de livro, ou outra coisa 


Esia demonstração põe toda a DATA na área atribuída à me- qualquer), delineado em escala. (A única restrição no tama- 
mória. Cada vez que introduz 191, por exemplo, está a forne- nho, é que o gráfico (desenho) que quer introduzir deve ter as 
cer informação acerca de um caracter quadrado, que tem o mesmas proporções que o écran do computador). 


Flash em 1, Paper branco e Ink branco (12875677). Depois de escolhido o objecto, necessita de o inserir numa 
Como as cores do Paper e da Ink são as mesmas não haverá grelha de quadrados. 
alteração no movimento ou na cor destas áreas do écran. Esta grelha deve estar numerada desde o princípio da parte 
Bons títulos! esquerda, na vertical e na horizontal. Para isso pode servir-se 
de um acetato. 
io dE caca RUN no programa & À 
rave o CESU tado com SAVE: us “co Como começar: 
LT 22525,:65 i r fei sli i 
loô DOTá 9,191,191,191,191,191, Depois de te eito RUN no programa deverá ligar a Printer se 
151, 191,. 1915401, %Z0i. 194. 155 tiver. Seguidamente deverá entrar com as coordenadas x e y. 
dia ORIA 1l91,191,151,151,191,193 Depois de ter introduzido a escala correcta, aparecerá um nú- 
» <;iS1,151,151,15),1l90),i51,151 0/0 999 ão d à qlrcias da 
— À2ô DATA 151,191,191,191,191,18 mero , Que não deverá esquecer pois através dele poderá 
1, 191,155,1585,136,191,155,156 regressar ao menú a qualquer momento. 
130 DRIA 151,191,16b,195,1914,415 
di iso 4 1&6B. iai, 15 4 lia. 156 a 151 E: » . 
lia DATA 185,1535,151.,191, 146 ; da Ultimos retoques: 
“ - ak o ” ess a per e “e A E " a . º e : j 
“155 GAIA 155) 191/491/191/ 156,10 Depois de ter dado as coordenadas, poderá, se quiser, gra- 
«, 186, 186,186,14B4,44%, e j Ei dá vá-las, e a seguir fazer LOAD num dos programas de gráficos 
162 DATA 151,194.,191,145,191,15 
1,186,191,146,19i,145,191,185. que existem, como exempio: Melbourne Draw. 
179 DATA 151,1986,186,191,1486.,4%5 Este programa opera em 16K e 48K. 
o, tai, 186,191,191,1856,186,4914 a 
139 DATA 151,145,1586,1931,156,19 
1; 454, 191, 191, 146, 194, 13%: 1006 s CLERR 39548 g 
jaa DATA 186,151,)91,1456,151,14d Lo RESTORE . FOR I=USR CA TO 
5,151,136.191,185,191,136,191 USR “A“+11: READ A: POKE I,A: NE 
aja DATA 191,155,191,13€6,151,195 NE E k. 
1,191,146,151,191,1686,191,151 — 29 DATA 17,0,72,33,86,119,1,0, 
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